home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - DOS Part 1 / DOS002.dsk / TRACE LIST UTILITY.int < prev    next >
Text File  |  2012-02-16  |  2KB  |  46 lines
  1. 29980 CALL -936:VTAB 10:TAB 11:PRINT "TRACE LIST UTILITY":TAB 19:PRINT "BY":TAB 14:PRINT "ALAN G. HILL"
  2. 29981 VTAB 20:INPUT "DO YOU WANT INSTRUCTIONS? ",A$
  3. 29982 IF A$#"Y" THEN 29987
  4. 29983 CALL -936:VTAB 5:PRINT "THIS PROGRAM WILL APPEND A TEST PROGRAM":PRINT "AND LIST EACH SOURCE STATEMENT":PRINT "AS IT EXECUTES."
  5. 29984 PRINT :PRINT "SEE 'MICRO', MARCH 1979":PRINT "FOR DETAILED INSTRUCTIONS."
  6. 29985 PRINT :PRINT "'RUN 31000' APPEND":PRINT "'RUN 30000' REAL-TIME LIST":PRINT "'RUN 32000' POST-EXEC. LIST"
  7. 29986 VTAB 20:INPUT "'RETURN' WHEN READY",A$
  8. 29987 DEL 29980, 29987
  9. 29990 PRINT "<CTRL-D>BLOAD TRACE.OBJ"
  10. 29995 GOTO 31000
  11. 29998 REM  'RUN 30000' REAL-TIME
  12. 30000 NO TRACE : POKE 54,768 MOD 256: POKE 55,768/256: POKE 19,0: POKE 20,0: POKE 787,76: POKE 788,211: POKE 789,3: POKE 790,234
  13. 30004 PRINT "ENABLE TRACE IN YOUR PGM"
  14. 30005 REM  TRACE VER1.0 11-28-78
  15. 30006 REM  TRACE VER1.1 3-6-79
  16. 30007 REM  ADD DISK APPEND CAPABILITY
  17. 30010 CALL 945:END 
  18. 30020 EXECLINE=TR(0):IF EXECLINE#0 THEN 30050
  19. 30030 IF RRRRR=1 THEN 30070
  20. 30040 RRRRR=1:GOTO 30060
  21. 30050 RRRRR=0
  22. 30060 LIST EXECLINE
  23. 30070 IF  PEEK (-16287)>127 THEN 30070
  24. 30075 IF EXECLINE=0 THEN 30090
  25. 30080 FOR JJJJJ=1 TO 150:NEXT JJJJJ
  26. 30090 CALL 954:REM   BACK TO TEST PGM
  27. 30100 END 
  28. 31000 DIM A$(30)
  29. 31002 INPUT "APPEND ",A$
  30. 31005 IF A$#"" THEN 31030
  31. 31010  POKE 0, PEEK (76): POKE 1, PEEK (77): POKE 76, PEEK (202): POKE 77, PEEK (203):CALL -3873: POKE 76, PEEK (0): POKE 77, PEEK (1):END 
  32. 31030  POKE 0, PEEK (76): POKE 1, PEEK (77): POKE 76, PEEK (202): POKE 77, PEEK (203):PRINT "<CTRL-D>LOAD ";A$;",V": POKE 76, PEEK (0): POKE 77, PEEK (1):PR # 0:IN # 0:END 
  33. 31999 REM  'RUN 32000' POST-EXEC
  34. 32000  POKE 54,768 MOD 256: POKE 55,768/256: POKE 19,0: POKE 20,0: POKE 787,169: POKE 788,127: POKE 789,133: POKE 790,5
  35. 32010 PRINT "TRACE SET UP. ENABLE TRACE IN YOUR PGM":END 
  36. 32020 NO TRACE : POKE 54,240: POKE 55,253:IF  PEEK (20)#0 THEN 32030:PRINT "TRACE NOT ON IN YOUR PGM":GOTO 32090
  37. 32030 CALL -936:FOR I=100 TO 1 STEP -1:IF TR(I)=-1 THEN 32060
  38. 32040 LIST TR(I)
  39. 32050 IF  PEEK (37)>18 THEN 32090
  40. 32060 NEXT I
  41. 32070 GOTO 32090
  42. 32080 CALL -936:IF I>1 THEN 32060
  43. 32090 PRINT :PRINT "C/T/E ?"
  44. 32100 KEY= PEEK (-16384):IF KEY<128 THEN 32100: POKE -16368,0:IF KEY=212 THEN 32000:IF KEY=195 THEN 32080:END 
  45. 65535 REM    TRACE LIST UTILITY              BY ALAN G. HILL           COMMERCIAL RIGHTS RESERVED
  46.